pd<-paste(wd, "/Figures/Figures_Output/",sep="")


pdf(file=paste(pd,"spatial_decay_plot_1.pdf",sep=""), 12, 9)



par(mar=c(4,4.25,2,1))

plot(seq(0,20,by=.25),exp(seq(0,20,by=.25)*-.4234),axes=F,xlab="KM (Thousands)",ylab="Correlation of Beliefs",type="n",lwd=2,cex.lab=1.5)

grid()

lines(seq(0,20,by=.25),exp(seq(0,20,by=.25)*-.4234),lwd=2)

axis(1);axis(2)

mtext("Spatial Decay of Learning",3,font=2,cex=2,line=0)


exp(seq(0,20,by=.25)*-.4234)[20]


#arrows(0,exp(seq(0,20,by=.25)*-.4234)[23], 5, exp(seq(0,20,by=.25)*-.4234)[23],lwd=2,length=.1, col="red")

text(6.65,exp(seq(0,20,by=.25)*-.4234)[23]+.04,"USA-Ecuador",cex=1.5,col="dark red",font=2)

text(10.25,exp(seq(0,20,by=.25)*-.4234)[42]+.03,"USA-CAR",cex=1.5,col="dark blue",font=2)


dev.off()



